home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 February: Tool Chest / Apple Developer CD Series Tool Chest February 1996 (Apple Computer)(1996).iso / Tool Chest / Development Tools & Languages / • Other Platforms / PCCTS 1.31 / lang / Pascal / ttree.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-03-10  |  836 b   |  54 lines  |  [TEXT/MPS ]
  1. /*    Code to manage type trees for each type
  2.  *  These trees then can be used to determine whether varibles have the
  3.  *  same type.
  4.  *
  5.  *  Will Cohen
  6.  *  12/18/90
  7.  */
  8.  
  9. #include <stdio.h>
  10. #include "ttree.h"
  11.  
  12. #define TRUE    1
  13. #define FALSE    0
  14.  
  15.  
  16. /* returns flag to state two trees compatible types*/
  17. int compatible(t1,t2)
  18. tnode *t1, *t2;
  19. {
  20.     int    result = TRUE;
  21.  
  22.     return result;
  23. }
  24.  
  25. /* returns flag to if a value of t2 can be assigned to type t1 */
  26. int acompatible(t1,t2)
  27. tnode *t1, *t2;
  28. {
  29.     int    result = TRUE;
  30.  
  31.     return result;
  32. }
  33.  
  34.  
  35. /* build tnode */
  36. tnode *new_tnode(t,down,right)
  37. int t;
  38. tnode *down,*right;
  39. {
  40.     register tnode *p;
  41.  
  42.     if ( (p = (tnode *) calloc(1,sizeof(tnode))) == 0 )
  43.     {
  44.         fprintf(stderr,"Out of memory\n");
  45.         exit(1);
  46.     }
  47.     p->n_type = t;
  48.     p->down = down;
  49.     p->right = right;
  50.     return p;
  51. }
  52.  
  53. /* things to build the simple type trees */
  54.